Column

Chart A

chooseCRANmirror(graphics=FALSE, ind=1)
instacart %>%
  filter(product_name %in% c("Natural Spring Water", "Spring Water", "Bulgarian Yogurt", "Strawberries", "Sauvignon Blanc", "Pinot Noir"))%>%
  group_by(product_name, order_dow) %>%
  summarize(mean_hour = mean(order_hour_of_day)) %>% 
  plot_ly( x = ~ order_dow, y=~ mean_hour, color = ~product_name,
           
           type = "bar") %>% 
  layout(yaxis = list(title = 'Mean Hour'), xaxis = list(title = 'Order Day of Week'), barmode = 'group')
## `summarise()` has grouped output by 'product_name'. You can override using the `.groups` argument.

Column

Chart B

Chart C